The 640 MEG Shareware Studio 4/The 640 Meg Shareware Studio CD-ROM Volume IV (Data Express)(1994).ISO/clang/lz13.zip/MACROS1.MLB

Text File | 1993-05-01 | 7KB | 581 lines

    .xlist
getchr    macro
    mov    ah,1
    int    21h
    endm

putchr    macro    chr
    ifdif    <dl>,<chr>
    mov    dl,chr
    endif
    mov    ah,2
    int    21h
    endm

getaux    macro
    mov    ah,3
    int    21h
    endm

putaux    macro    chr
    ifdif    <dl>,<chr>
    mov    dl,chr
    endif
    mov    ah,4
    int    21h
    endm

putprn    macro    chr
    ifdif    <dl>,<chr>
    mov    dl,chr
    endif
    mov    ah,5
    int    21h
    endm

dcio    macro    char
    ifnb    <char>
    mov    dl,0ffh
    else
    ifdif    <dl>,<char>
    mov    dl,char
    endif
    endif
    mov    ah,6h
    int    21h
    endm

dcinne    macro
    mov    ah,7h
    int    21h
    endm

noecho    macro    func
    ifnb    <func>
    ifdif    <al>,<func>
    mov    al,func
    endif
    else
    mov    al,0
    endif
    mov    ah,8h
    int    21h
    endm

print    macro    str
    lea    dx,str
    mov    ah,9h
    int    21h
    endm

input    macro    buf
    lea    dx,buf
    mov    ah,0ah
    int    21h
    endm

dskrst    macro
    mov    ah,0dh
    int    21h
    endm

seldsk    macro    drv
    ifdif    <dl>,<drv>
    mov    dl,drv
    endif
    mov    ah,0eh
    int    21h
    endm

open    macro    fcb
    lea    dx,fcb
    mov    ah,0fh
    int    21h
    endm

close    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,10h
    int    21h
    endm

sfirst    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,11h
    int    21h
    endm

snext    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,12h
    int    21h
    endm

delete    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,13h
    int    21h
    endm

seqrd    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,14h
    int    21h
    endm

seqwrt    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,15h
    int    21h
    endm

create    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,16h
    int    21h
    endm

rename    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,17h
    int    21h
    endm

getdrv    macro
    mov    ah,19h
    int    21h
    endm

setdta    macro    buf
;    lea    dx,buf
    mov    dx,offset buf
    mov    ah,1ah
    int    21h
    endm

rndrd    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,21h
    int    21h
    endm

rndwrt    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,22h
    int    21h
    endm

getsiz    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,23h
    int    21h
    endm

setrel    macro    fcb
;    lea    dx,fcb
    mov    dx,offset fcb
    mov    ah,24h
    int    21h
    endm

setvec    macro    int,addr
;    lea    dx,addr
    mov    dx,offset addr
;    mov    al,int
;    mov    ah,25h
    mov    ax,2500H+addr
    int    21h
    endm

rndbrd    macro    fcb,siz
;    lea    dx,fcb
    mov    dx,offset fcb
    ifdif    <cx>,<siz>
    mov    cx,siz
    endif
    mov    ah,27h
    int    21h
    endm

rndbwr    macro    fcb,siz
;    lea    dx,fcb
    mov    dx,offset fcb
    ifdif    <cx>,<siz>
    mov    cx,siz
    endif
    mov    ah,28h
    int    21h
    endm

parse    macro    string,fcb,flag
    ifdif    <[si]>,<string>
;    lea    si,string
    mov    si,offset string
    endif
    ifdif    <[di]>,<fcb>
;    lea    di,fcb
    mov    di,offset fcb
    endif
    ifdif    <al>,<flag>
    mov    al,flag
    endif
    mov    ah,29h
    int    21h
    endm

getdat    macro    year,month,day
    mov    ah,2ah
    int    21h
    mov    year,cx
    mov    month,dh
    mov    day,dl
    endm

setdat    macro    year,month,day
    mov    cx,year
    mov    dh,month
    mov    dl,day
    mov    ah,2bh
    int    21h
    endm

gettim    macro    hour,minute,second
    mov    ah,2ch
    int    21h
    mov    hour,ch
    mov    minute,cl
    mov    second,dh
    endm

settim    macro    hour,minute,second
    mov    ch,hour
    mov    cl,minute
    mov    dh,second
;    mov    dl,0
    xor    dl,dl
    mov    ah,2dh
    int    21h
    endm

wrtver    macro    onoff
    ifdif    <al>,<onoff>
    mov    al,onoff
    endif
    mov    ah,2eh
    int    21h
    endm

getdta    macro    buf
    push    bx
    push    es
    mov    ah,2fh
    int    21h
    mov    word ptr buf,bx
    mov    word ptr buf+2,es
    pop    es
    pop    bx
    endm

dosver    macro
    mov    ah,30h
    int    21h
    endm

break    macro    onoff
    ifnb    <onoff>
    ifdif    <dl>,<onoff>
    mov    dl,onoff
    endif
;    mov    al,1
    mov    ax,3301H
    else
;    mov    al,0
    mov    ax,3300H
    endif
;    mov    ah,33h
    int    21h
    endm

getvec    macro    int
;    mov    al,int
;    mov    ah,35h
    mov    ax,3500H+int
    int    21h
    endm

free    macro    drv
    ifnb    <drv>
    ifdif    <dl>,<drv>
    mov    dl,drv
    endif
    else
;    mov    dl,0
    xor    dl,dl
    endif
    mov    ah,36h
    int    21h
    endm

credir    macro    path
;    lea    dx,path
    mov    dx,offset path
    mov    ah,39h
    int    21h
    endm

remdir    macro    path
;    lea    dx,path
    mov    dx,offset path
    mov    ah,3ah
    int    21h
    endm

setdef    macro    path
;    lea    dx,path
    mov    dx,offset path
    mov    ah,3bh
    int    21h
    endm

hcreat    macro    path,attrib
;    lea    dx,path
    mov    dx,offset path
    ifdif    <cx>,<attrib>
    mov    cx,attrib
    endif
    mov    ah,3ch
    int    21h
    endm

hopen    macro    path,mode
;    lea    dx,path
    mov    dx,offset path
    ifdif    <al>,<mode>
    mov    al,mode
    endif
    mov    ah,3dh
    int    21h
    endm

hclose    macro    handle
    ifdif    <bx>,<handle>
    mov    bx,handle
    endif
    mov    ah,3eh
    int    21h
    endm

hread    macro    handle,buf,siz
    ifdif    <bx>,<handle>
    mov    bx,handle
    endif
    lea    dx,buf
;    mov    dx,offset buf
    ifdif    <cx>,<siz>
    mov    cx,siz
    endif
    mov    ah,3fh
    int    21h
    endm

hwrite    macro    handle,buf,siz
    ifdif    <bx>,<handle>
    mov    bx,handle
    endif
;    lea    dx,buf
    mov    dx,offset buf
    ifdif    <cx>,<siz>
    mov    cx,siz
    endif
    mov    ah,40h
    int    21h
    endm

deletp    macro    path
;    lea    dx,path
    mov    dx,offset path
    mov    ah,41h
    int    21h
    endm

movptr    macro    handle,dist,method
    ifdif    <bx>,<handle>
    mov    bx,handle
    endif
    mov    dx,dist
    mov    cx,dist+2
;    mov    al,method
;    mov    ah,42h
    mov    ax,4200H+method
    int    21h
    endm

setatr    macro    path,attrib
;    lea    dx,path
    mov    dx,offset path
    ifnb    <attrib>
    ifdif    <cx>,<attrib>
    mov    cx,attrib
    endif
;    mov    al,1
    mov    ax,4301H
    else
;    mov    al,0
    mov    ax,4300H
    endif
;    mov    ah,43h
    int    21h
    endm

getdef    macro    path,drv
    ifdif    <[si]>,<path>
;    lea    si,path
    mov    si,offset path
    endif
    ifdif    <dl>,<drv>
    mov    dl,drv
    endif
    mov    ah,47h
    int    21h
    endm

malloc    macro    siz
    ifdif    <bx>,<siz>
    mov    bx,siz
    endif
    mov    ah,48h
    int    21h
    endm

fremem    macro    segm
    ifnb    <segm>
    mov    es,segm
    endif
    mov    ah,49h
    int    21h
    endm

setmem    macro    siz,segm
    ifnb    <segm>
    mov    es,segm
    endif
    ifdif    <bx>,<siz>
    mov    bx,siz
    endif
    mov    ah,4ah
    int    21h
    endm

exec    macro    path,param,func
    ifnb    <func>
;    mov    al,func
;    mov    ah,4bh
    mov    ax,4B00H+func
    else
    mov    ax,4b00h
    endif
    mov    dx,path
    mov    bx,param
    int    21h
    endm

exit    macro
    mov    ax,4c00h
;    mov    dx,0
    xor    dx,dx
    int    21h
    endm

ffirst    macro    path,attrib
;    lea    dx,path
    mov    dx,offset path
    ifdif    <cx>,<attrib>
    mov    cx,attrib
    endif
    mov    ah,4eh
    int    21h
    endm

fnext    macro
    mov    ah,4fh
    int    21h
    endm

renamp    macro    old,new
;    lea    dx,old
;    lea    di,new
    mov    dx,offset old
    mov    di,offset new
    mov    ah,56h
    int    21h
    endm

tmstmp    macro    handle,date,time
    ifdif    <bx>,<handle>
    mov    bx,handle
    endif
    ifnb    <date>
    ifdif    <dx>,<date>
    mov    dx,date
    endif
    ifdif    <cx>,<time>
    mov    cx,time
    endif
;    mov    al,1
    mov    ax,5701H
    else
;    mov    al,0
    mov    ax,5700H
    endif
;    mov    ah,57h
    int    21h
    endm

filtim    record    fil_hour:5,fil_minute:6,fil_second:5
fildat    record    fil_year:7,fil_month:4,fil_day:5

fcb    struc
fcb_drive    db    ?
fcb_fname    db    '        '
fcb_ftype    db    '   '
fcb_curblk    dw    ?
fcb_recsiz    dw    ?
fcb_filsiz    dd    ?
fcb_upddat    dw    ?
fcb_resrvd    db    10 dup (?)
fcb_currec    db    ?
fcb_relrec    dd    ?
fcb    ends

srcbuf    struc
src_drive    db    ?
src_fname    db    8 dup (?)
src_ftype    db    3 dup (?)
src_resrvd    db    10 dup (?)
src_updtim    dw    ?
src_upddat    dw    ?
src_clust1    dw    ?
src_filsiz    dd    ?
srcbuf    ends

fndbuf    struc
fnd_resrvd    db    21 dup (?)
fnd_attrib    db    ?
fnd_updtim    dw    ?
fnd_upddat    dw    ?
fnd_filsiz    dd    ?
fnd_filnam    db    13 dup (?)
fndbuf    ends
    .list